0 REM* MAKE YOR VOTE.1995 BY SPIKE/TC *
1 PRINT"[149][147]":POKE53280,0:POKE53281,0:PRINT"MAKE YOUR VOTE"
2 PRINT"[153]1= DATEN EINGEBEN"       :PRINT"2= DATEN AUSGEBEN"
3 PRINT"3= DATEN LOESCHEN"
4 GETA$:ONVAL(A$)GOSUB5,9,18:GOTO1
5 INPUT"[147][154]NAME      : [149]";N$:INPUT"[154]PSEUDO    : [149]";N$(0)
6 INPUT"[154]STRASSE   : [149]";N$(1):INPUT"[154]WOHNORT   : [149]";N$(2)
7 INPUT"[154]GAME 1    : [149]";N$(3):INPUT"[154]GAME 2     : [149]";N$(4)
8 Z$=N$+",S,W":OPEN2,8,2,Z$:FORI=0TO4:PRINT#2,N$(I):NEXT:CLOSE2:GOSUB19:GOTO13
9 INPUT"[147]NAME:[149]";N$:Z$=N$+"*"+",S,R":OPEN2,8,2,Z$:AN$=N$
10 FORI=0TO4:INPUT#2,N$(I):NEXTI:CLOSE2:GOSUB19:PRINT"[154]PSEUDO    : [149]"N$(0)
11 PRINT"[154]STRASSE   : [149]"N$(1):PRINT"[154]WOHNORT   : [149]"N$(2)
12 PRINT"[154]GAME 1    : [149]"N$(3):PRINT"[154]GAME 2    : [149]"N$(4):IFA=1THENA=0:RETURN
13 GETA$:IFA$=""THEN13
14 RUN
18 INPUT"[147]NAME ";N$:Z$="S:"+N$:OPEN15,8,15,Z$:CLOSE15:GOSUB19:GOSUB13
19 V=PEEK(214):OPEN15,8,15:INPUT#15,N,F$:CLOSE15:POKE214,24:SYS58640
20 PRINT"[158]    DISK-STATUS  :  [149]"F$"[145]":POKE214,V:SYS58640:RETURN